context("LDSC")

test_that("get afl2", {
  skip_if_opengwas_tests_disabled()
  skip("Very slow")
  hm3info <- ieugwasr::afl2_list("hapmap3")
  if (inherits(hm3info, "response")) {
    skip("Server issues")
  }
  s <- ieugwasr::afl2_list()
  if (inherits(s, "response")) {
    skip("Server issues")
  }
  a <- ldsc_h2("ieu-a-2", snpinfo = hm3info)
  b <- ldsc_rg("ieu-a-2", "ieu-a-2", snpinfo = hm3info)
  c <- ldsc_rg("ukb-a-248", "ukb-b-19953", snpinfo = hm3info)
  height <- ldsc_h2("ukb-b-10787", snpinfo = hm3info)
})
